Buscar por:

VERIFICA SE UMA DATA OU HORA [STRING] É VALIDA

Código

(...)

 TTipoValor = (tvDate, tvTime);

(...)

//---------------VERIFICA SE UMA DATA OU HORA [STRING] É VALIDA

Function ETempoValido(Flag: TTipoValor; DataOuHora : String): Boolean;

Var

  Ano, Mes, Dia: Integer;

Begin

  Result:= false;

  case Flag of

    tvDate: Begin

              if Length(DataOuHora) < 10 then

                Begin

                  Result:= false;

                  Exit;

                End;

              Ano:=    StrToInt(DataOuHora[7] + DataOuHora[8] + DataOuHora[9] + DataOuHora[10]);

              Mes:=    StrToInt(DataOuHora[4] + DataOuHora[5]);

              Dia:=    StrToInt(DataOuHora[1] + DataOuHora[2]);

              Result:= IsValidDate(Ano, Mes, Dia);

            End;

    tvTime: Begin

              if Length(DataOuHora) < 8 then

                Begin

                  Result:= false;

                  Exit;

                End;

              Ano:= StrToInt(DataOuHora[1] + DataOuHora[2]);

              Mes:= StrToInt(DataOuHora[4] + DataOuHora[5]);

              Dia:= StrToInt(DataOuHora[7] + DataOuHora[8]);

              Result:= IsValidTime(Ano, Mes, Dia, 0);

            End;

  end;

End;